525
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub ComboBox1_InsertItem(ByVal Item As Long)
	With ComboBox1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Sub

With ComboBox1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(0) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = 6
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = 10
		.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava" & _
	"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" & _
	"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" & _
	" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = 240
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter 
	.EndUpdate 
End With
524
FilterBarCaption AVAILABLE Keyword ( sample 1 )

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub ComboBox1_InsertItem(ByVal Item As Long)
	With ComboBox1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Sub

With ComboBox1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(0) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = 6
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = 10
		.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "value + ` ` + available"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = 240
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter 
	.EndUpdate 
End With
527
FilterBarCaption ALLUI Keyword ( sample 2, result )

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub ComboBox1_InsertItem(ByVal Item As Long)
	With ComboBox1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Sub

With ComboBox1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(0) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = 6
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = 10
		.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
	"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
	"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = 240
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter 
	.EndUpdate 
End With
526
FilterBarCaption ALLUI Keyword ( sample 1 )

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub ComboBox1_InsertItem(ByVal Item As Long)
	With ComboBox1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Sub

With ComboBox1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(0) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = 6
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = 10
		.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "allui"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = 240
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter 
	.EndUpdate 
End With
529
FilterBarCaption ALL Keyword ( sample 2, result )

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub ComboBox1_InsertItem(ByVal Item As Long)
	With ComboBox1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Sub

With ComboBox1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(0) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = 6
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = 10
		.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[" & _
	"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchi" & _
	"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" & _
	" + ` item(s)`) )))"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = 240
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter 
	.EndUpdate 
End With
528
FilterBarCaption ALL Keyword ( sample 1 )

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub ComboBox1_InsertItem(ByVal Item As Long)
	With ComboBox1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Sub

With ComboBox1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(0) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = 6
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = 10
		.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "all"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = 240
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter 
	.EndUpdate 
End With
534
Export Data in HTML format

With ComboBox1
	.BeginUpdate 
	.LinesAtRoot = -1
	.BackColorAlternate = RGB(240,240,240)
	.DrawGridLines = -1
	.HeaderAppearance = 4
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
	"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
	"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = 2579 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = 2
	With .ConditionalFormats
		.Add("%0 like `*parent*`","parent").BackColor = RGB(192,192,192)
		With .Add("%0 like `*child*`","child")
			.ForeColor = RGB(255,128,128)
			.ApplyTo = 0
		End With
		With .Add("%0 like `*B*`","b")
			.ForeColor = RGB(0,0,255)
			.Bold = True
			.Italic = True
			.ApplyTo = 0
		End With
	End With
	With .Columns
		With .Add("Value")
			.Width = 128
			.HTMLCaption = "<b>VA</b><r>sko"
		End With
		With .Add("APos")
			.FormatColumn = "0 apos ``"
			.AllowSort = False
			.Def(4) = 15790320
			.Def(5) = 8421504
			.Def(8) = .Def(5)
			.Position = 0
		End With
		With .Add("RPos")
			.FormatColumn = "0 rpos ``"
			.AllowSort = False
			.Position = 1
		End With
		With .Add("Index")
			.FormatColumn = "0 index ``"
			.DisplayFilterButton = True
			.FilterList = 256
			.Position = 2
		End With
		With .Add("Data 1")
			.FormatColumn = "0 index `A-Z`"
			.Def(0) = True
		End With
		With .Add("Data 2")
			.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
			.Def(16) = False
			.Def(17) = 1
			.Def(1) = True
		End With
		With .Add("Data 3")
			.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
			.Def(17) = 1
		End With
	End With
	With .Items
		h = .AddItem("ParentA")
		.InsertItem h,,"Child A"
		.InsertItem h,,"Child B"
		.CellState(h,4) = 1
		.CellBackColor(.InsertItem(h,,"Child C"),5) = RGB(0,255,0)
		.ExpandItem(h) = True
		.AddItem "Item A"
		h = .AddItem("ParentB")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.CellBackColor(.InsertItem(h,,"Child 3"),5) = RGB(0,255,0)
		.CellState(h,5) = 1
		.AddItem "Item B"
		.AddItem "Item C"
		.AddItem "Item D"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
	sFile = "c:/temp/export.html"
	.Export sFile,"vis"
	With CreateObject("InternetExplorer.Application")
		.Navigate2 sFile
	End With
End With
533
Export Data in CSV format

With ComboBox1
	.BeginUpdate 
	.LinesAtRoot = -1
	.BackColorAlternate = RGB(240,240,240)
	.DrawGridLines = -1
	.HeaderAppearance = 4
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
	"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
	"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = 2579 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = 2
	With .ConditionalFormats
		.Add("%0 like `*parent*`","parent").BackColor = RGB(192,192,192)
		With .Add("%0 like `*child*`","child")
			.ForeColor = RGB(255,128,128)
			.ApplyTo = 0
		End With
		With .Add("%0 like `*B*`","b")
			.ForeColor = RGB(0,0,255)
			.Bold = True
			.Italic = True
			.ApplyTo = 0
		End With
	End With
	With .Columns
		With .Add("Value")
			.Width = 128
			.HTMLCaption = "<b>VA</b><r>sko"
		End With
		With .Add("APos")
			.FormatColumn = "0 apos ``"
			.AllowSort = False
			.Def(4) = 15790320
			.Def(5) = 8421504
			.Def(8) = .Def(5)
			.Position = 0
		End With
		With .Add("RPos")
			.FormatColumn = "0 rpos ``"
			.AllowSort = False
			.Position = 1
		End With
		With .Add("Index")
			.FormatColumn = "0 index ``"
			.DisplayFilterButton = True
			.FilterList = 256
			.Position = 2
		End With
		With .Add("Data 1")
			.FormatColumn = "0 index `A-Z`"
			.Def(0) = True
		End With
		With .Add("Data 2")
			.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
			.Def(16) = False
			.Def(17) = 1
			.Def(1) = True
		End With
		With .Add("Data 3")
			.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
			.Def(17) = 1
		End With
	End With
	With .Items
		h = .AddItem("ParentA")
		.InsertItem h,,"Child A"
		.InsertItem h,,"Child B"
		.CellState(h,4) = 1
		.CellBackColor(.InsertItem(h,,"Child C"),5) = RGB(0,255,0)
		.ExpandItem(h) = True
		.AddItem "Item A"
		h = .AddItem("ParentB")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.CellBackColor(.InsertItem(h,,"Child 3"),5) = RGB(0,255,0)
		.CellState(h,5) = 1
		.AddItem "Item B"
		.AddItem "Item C"
		.AddItem "Item D"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
	Debug.Print( .Export("","vis") )
End With
590
Expandable-caption

With ComboBox1
	.BeginUpdate 
	.Style = 0
	.TreeColumnIndex = -1
	.DrawGridLines = -1
	.GridLineStyle = 512
	.BackColorAlternate = RGB(240,240,240)
	.ShowFocusRect = False
	.SingleEdit = True
	.SearchColumnIndex = 1
	.AdjustSearchColumn = False
	.HeaderVisible = False
	.Columns.Add "Default"
	.Columns.Add("Select").Visible = False
	With .Items
		.CellCaption(.AddItem("before item"),1) = "before"
		h = .AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
		.CellCaptionFormat(h,0) = 1
		.CellSingleLine(h,0) = False
		.CellCaption(h,1) = "Bank Account"
		.CellCaption(.AddItem("after item"),1) = "after"
	End With
	.Select(1) = "after"
	.EndUpdate 
End With
591
Expandable-caption

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub ComboBox1_AnchorClick(ByVal AnchorID As String, ByVal Options As String)
	With ComboBox1
		Debug.Print( AnchorID )
	End With
End Sub

With ComboBox1
	.BeginUpdate 
	.Style = 0
	.TreeColumnIndex = -1
	.DrawGridLines = -1
	.GridLineStyle = 512
	.BackColorAlternate = RGB(240,240,240)
	.ShowFocusRect = False
	.SingleEdit = True
	.SearchColumnIndex = 1
	.AdjustSearchColumn = False
	.HeaderVisible = False
	.Columns.Add "Default"
	.Columns.Add("Select").Visible = False
	With .Items
		.CellCaption(.AddItem("before item"),1) = "before"
		h = .AddItem("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj" & _
	"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" & _
	"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" & _
	"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>	" & _
	"650;</a><br>+ withdraw(amount: Currency)")
		.CellCaptionFormat(h,0) = 1
		.CellSingleLine(h,0) = False
		.CellCaption(h,1) = "Bank Account"
		.CellCaption(.AddItem("after item"),1) = "after"
	End With
	.Select(1) = "after"
	.EndUpdate 
End With
468
Does your control supports scrolling by touching the screen

With ComboBox1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3
	End With
	.DataSource = rs
	.ScrollBySingleLine = True
	.AutoDrag = 4112 ' AutoDragEnum.exAutoDragScrollOnShortTouch Or AutoDragEnum.exAutoDragScroll
	.EndUpdate 
End With
405
Does your control support RightToLeft property for RTL languages or right to left

With ComboBox1
	.BeginUpdate 
	.LinesAtRoot = -1
	With .Columns.Add("P1")
		.Def(0) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
	.RightToLeft = True
	.EndUpdate 
End With
357
Does your control support prompt feature

With ComboBox1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.AutoComplete = False
	.Columns.Add("Column 1").Prompt = "<img>1</img><i><fgcolor=808080>type to search</fgcolor></i>"
	.Items.AddItem 0
	.Items.AddItem 1
	.Items.AddItem 2
End With
22
Does your control support partial-check ( three states ) feature for each column

With ComboBox1
	.LinesAtRoot = -1
	With .Columns.Add("P1")
		.Def(0) = True
		.PartialCheck = True
	End With
	With .Columns.Add("P2")
		.Def(0) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
End With
565
Does your control support multiple-selection

With ComboBox1
	.BeginUpdate 
	.HeaderAppearance = 4
	.Style = 2
	.SingleSel = False
	.SingleEdit = True
	.LabelColumnIndex = 0
	With .Columns
		.Add "Column"
		.Add "Sub-Column"
	End With
	With .Items
		.CellCaption(.AddItem("Item 1"),1) = "SubItem 1.1"
		.CellCaption(.AddItem("Item 2"),1) = "SubItem 2.1"
		.CellCaption(.AddItem("Item 3"),1) = "SubItem 3.1"
		.CellCaption(.AddItem("Item 4"),1) = "SubItem 4.1"
		.SelectItem(.ItemByIndex(1)) = True
		.SelectItem(.ItemByIndex(3)) = True
	End With
	.EndUpdate 
End With
352
Does you control support RTL languages or if there is a property RightToLeft

With ComboBox1
	.RightToLeft = True
	.ItemsAllowSizing = -1
	.DrawGridLines = 1
	.LinesAtRoot = -1
	.ScrollBySingleLine = True
	.DefaultItemHeight = 64
	With .Columns.Add("Column")
		.Alignment = 2
		.HeaderAlignment = 2
		.EditAlignment = 2
	End With
	With .Items
		.AddItem "Item 1"
		.ItemHeight(.InsertItem(.AddItem("Parent"),,"Item 2")) = 48
		.AddItem "Item 3"
		.ExpandItem(.ItemByIndex(1)) = True
	End With
End With
319
Does the tooltip support HTML format

With ComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgcolor>"
End With
453
Does the control have the option to have a horizontal scroll to show entries which are longer than the display

With ComboBox1
	.BeginUpdate 
	.ColumnAutoResize = False
	.Columns.Add("Default").Width = 512
	With .Items
		.AddItem "Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 19" & _
	"99. ""eXontrol"" comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single s" & _
	"ite where you can try or buy our products. If you are tired of looking for ""powerful"" components now it's time to show you rea" & _
	"l components. No registration required, no nag screens, no limitations, unlimited evaluation time."
		.AddItem "A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowin" & _
	"g the user either to type a value directly into the control or choose from the list of existing options."
	End With
	.EndUpdate 
End With
121
Do you have some function to retrieve all items to a safe array

With ComboBox1
	.Columns.Add "Column"
	.Items.AddItem 0
	.PutItems .GetItems(0)
	.Items.AddItem 1
	.PutItems .GetItems(0)
	.Items.AddItem 2
	.PutItems .GetItems(0)
	.Items.AddItem 3
End With
122
Do you have some function to load data from a safe array

With ComboBox1
	.Columns.Add "Column"
	.Items.AddItem 0
	.PutItems .GetItems(0)
End With
548
Do do I get the DAO version I have installed
With ComboBox1
	Debug.Print( CreateObject("DAO.DBEngine.35").Version.Version )
	Debug.Print( CreateObject("DAO.DBEngine.36").Version.Version )
	Debug.Print( CreateObject("DAO.DBEngine.120").Version.Version )
End With
546
Do do I get the ADO version I have installed
With ComboBox1
	Debug.Print( "ADO Version:" )
	Debug.Print( CreateObject("ADODB.Connection").Version.Version )
End With
605
Displays the root item's index and value/caption using expressions

With ComboBox1
	.BeginUpdate 
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.LinesAtRoot = -1
	.AutoDrag = 3
	.SingleSel = False
	.DrawGridLines = -2
	.GridLineStyle = 48
	.ConditionalFormats.Add("%CC0 and %CX0").Bold = True
	With .ConditionalFormats.Add("1")
		.Bold = True
		.ApplyTo = 2 ' &H2
	End With
	With .Columns.Add("Description")
		.Def(0) = True
		.PartialCheck = True
	End With
	With .Columns.Add("Index")
		.FormatColumn = "1 index ``"
		.Position = 0
		.Width = 16
	End With
	With .Columns.Add("Root-Index")
		.FormatColumn = "root(1 index ``)"
		.Position = 1
		.Width = 32
		.Def(4) = 15790320
	End With
	With .Columns.Add("Root-Value")
		.FormatColumn = "root(%0)"
		.Position = 2
		.Width = 32
		.Def(4) = 15790320
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem .InsertItem(h,,"Child 2"),,"Sub-Child 2"
		.CellState(.InsertItem(h,,"Child 3"),0) = 1
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.InsertItem h,,"Child 3"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With
604
Displays the parent item's index and caption/value using expressions

With ComboBox1
	.BeginUpdate 
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.LinesAtRoot = -1
	.AutoDrag = 3
	.SingleSel = False
	.DrawGridLines = -2
	.GridLineStyle = 48
	.ConditionalFormats.Add("%CC0 and %CX0").Bold = True
	With .ConditionalFormats.Add("1")
		.Bold = True
		.ApplyTo = 2 ' &H2
	End With
	With .Columns.Add("Description")
		.Def(0) = True
		.PartialCheck = True
	End With
	With .Columns.Add("Index")
		.FormatColumn = "1 index `I`"
		.Position = 0
		.Width = 16
	End With
	With .Columns.Add("Parent-Index")
		.FormatColumn = "parent(1 index `I`)"
		.Position = 1
		.Width = 32
		.Def(4) = 15790320
	End With
	With .Columns.Add("Parent-Value")
		.FormatColumn = "parent(%0)"
		.Position = 2
		.Width = 32
		.Def(4) = 15790320
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem .InsertItem(h,,"Child 2"),,"Sub-Child 2"
		.CellState(.InsertItem(h,,"Child 3"),0) = 1
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.InsertItem h,,"Child 3"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With
601
Displays a glitch funnel for drop-down filter buttons (empty or active)

With ComboBox1
	.BeginUpdate 
	With .VisualAppearance
		.RenderType = -1
		.Add 1,"gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZO" & _
	"iwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYRe" & _
	"WAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI="
		.Add 2,"CP:1 -2 0 0 0"
	End With
	.DrawGridLines = -1
	.GridLineStyle = 512
	.ShowFocusRect = False
	.Background(0) = &H2000000
	.Background(41) = &H2000001
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.HeaderVisible = 1
	With .Columns.Add("1st col")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.Filter = "Item B"
		.FilterType = 240
	End With
	.Columns.Add "2nd col"
	With .Items
		.AddItem "Item A"
		.AddItem "Item B"
		.AddItem "Item C"
	End With
	.ApplyFilter 
	.EndUpdate 
End With
587
Display a custom tooltip
' MouseMove event - Occurs when the user moves the mouse.
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
	With ComboBox1
		.ShowToolTip .ColumnFromPoint(-1,-1),"",,"+8","+8"
	End With
End Sub


592
Disable temporarily the column's sort, resize and drag and drop

With ComboBox1
	.BeginUpdate 
	.SortBarVisible = True
	.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
	.HeaderEnabled = False
	.HeaderAppearance = 4
	.Columns.Add("Index").FormatColumn = "1 index ``"
	.Columns.Add("Pos").FormatColumn = "1 apos ``"
	.Columns.Add "Edit"
	.GridLineStyle = 512
	.DrawGridLines = 2
	.EndUpdate 
End With
588
Disable hover-all feature (Windows 11 or greater)
With ComboBox1
	.Background(500) = RGB(1,0,0)
End With
602
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)

With ComboBox1
	.BeginUpdate 
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.DrawGridLines = -2
	.Columns.Add("Country").ShowIdem = " "
	With .Items
		.AddItem "Spain"
		.AddItem "Spain"
		.AddItem "Spain"
		.AddItem "Spain"
		.AddItem "Germany"
		.AddItem "Germany"
		.AddItem "Germany"
		.AddItem "Germany"
	End With
	.EndUpdate 
End With
603
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)

With ComboBox1
	.BeginUpdate 
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.DrawGridLines = -2
	.Columns.Add("Country").ShowIdem = "<fgcolor gray>〃"
	With .Items
		.AddItem "Spain"
		.AddItem "Spain"
		.AddItem "Spain"
		.AddItem "Spain"
		.AddItem "Germany"
		.AddItem "Germany"
		.AddItem "Germany"
		.AddItem "Germany"
	End With
	.EndUpdate 
End With
544
DAO, MDB, 120

With ComboBox1
	.BeginUpdate 
	.ColumnAutoResize = False
	With CreateObject("DAO.DBEngine.120")
		Set rs = .OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb").OpenRecordset("Orders")
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate 
End With
543
DAO, MDB

With ComboBox1
	.BeginUpdate 
	.ColumnAutoResize = False
	With CreateObject("DAO.DBEngine.36")
		Set rs = .OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb").OpenRecordset("Orders")
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate 
End With
545
DAO, ACCDB, 120

With ComboBox1
	.BeginUpdate 
	.ColumnAutoResize = False
	With CreateObject("DAO.DBEngine.120")
		Set rs = .OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb").OpenRecordset("Orders")
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate 
End With
582
Change the clear-button appearance

With ComboBox1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"XP:Window 19 1"
		.Add 2,"XP:Window 19 3"
	End With
	.Background(190) = &H1000000
	.Background(191) = &H2000000
	.Style = 2
	.HeaderVisible = False
	.IntegralHeight = True
	.ShowClearButton = 1
	.Columns.Add "Column"
	With .Items
		.AddItem "Zero"
		.AddItem "One"
		.AddItem "Two"
	End With
	.Select(0) = "Zero"
	.EndUpdate 
End With
150
Can I use your EBN files to change the visual appearance for radio buttons

With ComboBox1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.RadioImage(0) = 16777216
	.RadioImage(1) = 33554432
	.Columns.Add("Radio").Def(1) = True
	With .Items
		.AddItem "Radio 1"
		.CellState(.AddItem("Radio 2"),0) = 1
		.AddItem "Radio 3"
	End With
End With
149
Can I use your EBN files to change the visual appearance for checkbox cells

With ComboBox1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.CheckImage(0) = 16777216
	.CheckImage(1) = 33554432
	.Columns.Add("Check").Def(0) = True
	With .Items
		.AddItem "Check 1"
		.CellState(.AddItem("Check 2"),0) = 1
	End With
End With
151
Can I use your EBN files to change the visual appearance for +/- expand - collapse buttons

With ComboBox1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.LinesAtRoot = 1
	.HasButtons = 4
	.HasButtonsCustom(0) = 16777216
	.HasButtonsCustom(1) = 33554432
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child"
	End With
End With
52
Can I use my own icons for the +/- ( expand/collapse ) buttons

With ComboBox1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.LinesAtRoot = 1
	.HasButtons = 4
	.HasButtonsCustom(0) = 1
	.HasButtonsCustom(1) = 2
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child"
	End With
End With
428
Can I specify an item to be a separator

With ComboBox1
	.BeginUpdate 
	.TreeColumnIndex = -1
	.SortOnClick = 0
	.Columns.Add "Numbers"
	With .Items
		.AddItem 1
		.AddItem 2
		h = .AddItem("separator")
		.SelectableItem(h) = False
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = 1
		.ItemDividerLine(h) = 5
		.CellHAlignment(h,0) = 1
		.AddItem 3
		.AddItem 4
	End With
	.EndUpdate 
End With
430
Can I specify a terminal item so it will mark the end of childs

With ComboBox1
	.BeginUpdate 
	.ScrollBySingleLine = True
	.Columns.Add "P1"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .InsertItem(h,"","")
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = 1
		.ItemHeight(h) = 2
		.SelectableItem(h) = False
		.SortableItem(h) = False
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .InsertItem(h,"","")
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = 1
		.ItemHeight(h) = 2
		.SelectableItem(h) = False
		.SortableItem(h) = False
	End With
	.EndUpdate 
End With
556
Can I sort the column by image

With ComboBox1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Image")
		.SortType = 48
	End With
	With .Items
		.CellImage(.AddItem(),0) = 3
		.AddItem 
		.CellImage(.AddItem(),0) = 1
		.CellImage(.AddItem(),0) = 2
	End With
	.Columns.Item(0).SortOrder = 1
	.EndUpdate 
End With
557
Can I sort the column by check-state

With ComboBox1
	.BeginUpdate 
	With .Columns.Add("Check")
		.Def(0) = True
		.SortType = 32
	End With
	With .Items
		.AddItem 
		.CellState(.AddItem(),0) = 1
		.CellState(.AddItem(),0) = 1
		.AddItem 
	End With
	.Columns.Item(0).SortOrder = 1
	.EndUpdate 
End With
599
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically
With ComboBox1
	.BeginUpdate 
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.LinesAtRoot = -1
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.Def(21) = "*<%filter%>*"
		.FilterType = 3
		.Filter = "1"
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
	End With
	.ApplyFilter 
	.EndUpdate 
End With
311
Can I remove the line being displayed by a divider item

With ComboBox1
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		.CellSingleLine(h,1) = False
		h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
		.ItemDivider(h) = 0
		.ItemDividerLine(h) = 0
		.CellHAlignment(h,0) = 1
	End With
End With
34
Can I remove the "All", "Blanks" and "NonBlanks" items in the drop down filter window

With ComboBox1
	.Columns.Add("Column").DisplayFilterButton = True
	.Description(0) = ""
	.Description(1) = ""
	.Description(2) = ""
End With
31
Can I make strikeout the column's header

With ComboBox1
	.Columns.Add("Column 1").HeaderStrikeOut = True
End With
573
Can I limit the number of characters the user can type into, similar with text-box's MaxLength property
With ComboBox1
	.Columns.Add("Max 2 chars").EditMaxLength = 2
	.AutoSearch = False
	.AutoComplete = False
End With
290
Can I let the user to resize at runtime the specified item

With ComboBox1
	.ScrollBySingleLine = True
	.DrawGridLines = -2
	.Columns.Add "Default"
	With .Items
		.ItemAllowSizing(.AddItem("resizable item")) = True
		.AddItem "not resizable item"
	End With
End With
54
Can I hide the hierarchy lines

With ComboBox1
	.LinesAtRoot = 1
	.HasLines = 0
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child"
	End With
End With
401
Can I have an image displayed after the text. Can I get that effect without using HTML content

With ComboBox1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add("Column").Def(34) = "caption,icon,check,icons,picture"
	With .Items
		h = .AddItem("Text")
		.CellImage(h,0) = 1
	End With
End With
42
Can I filter for values using OR - NOT , instead AND operator

With ComboBox1
	With .Columns.Add("Column 1")
		.DisplayFilterButton = True
		.FilterType = 1
	End With
	With .Columns.Add("Column 2")
		.DisplayFilterButton = True
		.FilterType = 1
	End With
	With .Columns.Add("Column 3")
		.DisplayFilterButton = True
		.FilterType = 1
	End With
	.FilterCriteria = "%0 or not %1 and %2"
	.ApplyFilter 
End With
8
Can I displays a custom size picture to column's header

With ComboBox1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HeaderHeight = 48
	.Columns.Add("ColumnName").HTMLCaption = "<b>HTML</b> Column <img>pic1</img> Picture"
End With
403
Can I display the cell's check box after the text

With ComboBox1
	With .Columns.Add("Column")
		.Def(0) = True
		.Def(34) = "caption,check"
	End With
	With .Items
		.CellHasCheckBox(.AddItem("Caption 1"),0) = True
		.CellHasCheckBox(.AddItem("Caption 2"),0) = True
	End With
End With
371
Can I display the absolute value or positive part of the number

With ComboBox1
	.Columns.Add "Number"
	.Columns.Add("Abs").ComputedField = "abs(%0)"
	With .Items
		.AddItem "-1.98"
		.AddItem "0.99"
		.AddItem "1.23"
		.AddItem "2.34"
	End With
End With
19
Can I display multiple icons to the column's header

With ComboBox1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add("Column 1").HTMLCaption = "1<img>1</img> 2 <img>2</img>..."
End With
161
Can I display an additional buttons in the scroll bar

With ComboBox1
	.ScrollPartVisible(1,32768) = True
	.ScrollPartVisible(1,16384) = True
	.ScrollPartVisible(1,1) = True
	.ScrollPartVisible(1,2) = True
End With
209
Can I display a computed column so it displays the VAT, or SUM

With ComboBox1
	.Columns.Add "A"
	.Columns.Add "B"
	.Columns.Add("(A+B)*1.19").ComputedField = "(%0 + %1) * 1.19"
	With .Items
		.CellCaption(.AddItem(1),1) = 2
	End With
	With .Items
		.CellCaption(.AddItem(10),1) = 20
	End With
End With
285
Can I display a button with some picture or icon inside

With ComboBox1
	.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = " Button <img>p1</img> "
		.CellCaptionFormat(h,1) = 1
		.CellHAlignment(h,1) = 2
		.CellHasButton(h,1) = True
		.ItemHeight(h) = 48
	End With
End With
284
Can I display a button with some picture or icon inside

With ComboBox1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = " Button <img>1</img> "
		.CellCaptionFormat(h,1) = 1
		.CellHAlignment(h,1) = 2
		.CellHasButton(h,1) = True
	End With
End With
283
Can I display a button with some icon inside

With ComboBox1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = " <img>1</img> "
		.CellCaptionFormat(h,1) = 1
		.CellHAlignment(h,1) = 2
		.CellHasButton(h,1) = True
	End With
End With
10
Can I disable sorting a column, when the user clicks the column's header, or drag it to the sort bar

With ComboBox1
	.Columns.Add("Unsortable").AllowSort = False
	.Columns.Add "Sortable"
End With
567
Can I customize the count of selected items, shown on the right side of the control's label (multiple-selection)

With ComboBox1
	.BeginUpdate 
	.HeaderAppearance = 4
	.Style = 2
	.SingleSel = False
	.SingleEdit = True
	.LabelColumnIndex = 0
	.SelBackColor = RGB(51,153,255)
	.SelForeColor = RGB(255,255,255)
	.LabelText = "<bgcolor=3399FF><fgcolor=FFFFFF> %c </fgcolor></bgcolor>"
	With .Columns
		.Add "Column"
		.Add "Sub-Column"
	End With
	With .Items
		.CellCaption(.AddItem("Item 1"),1) = "SubItem 1.1"
		.CellCaption(.AddItem("Item 2"),1) = "SubItem 2.1"
		.CellCaption(.AddItem("Item 3"),1) = "SubItem 3.1"
		.CellCaption(.AddItem("Item 4"),1) = "SubItem 4.1"
		.SelectItem(.ItemByIndex(1)) = True
		.SelectItem(.ItemByIndex(3)) = True
	End With
	.EndUpdate 
End With
378
Can I convert the expression to date

With ComboBox1
	.Columns.Add "Number"
	.Columns.Add("Date").ComputedField = "date(dbl(%0))"
	With .Items
		.AddItem "-1.98"
		.AddItem "30000.99"
		.AddItem "3561.23"
		.AddItem "1232.34"
	End With
End With
377
Can I convert the expression to a number, double or float

With ComboBox1
	.Columns.Add "Number"
	.Columns.Add("Number + 2").ComputedField = "dbl(%0)+2"
	With .Items
		.AddItem "-1.98"
		.AddItem "0.99"
		.AddItem "1.23"
		.AddItem "2.34"
	End With
End With
174
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

With ComboBox1
	.FormatAnchor(False) = "<b><u><fgcolor=880000> </fgcolor></u></b>"
	.Columns.Add "Column"
	With .Items
		.CellCaptionFormat(.AddItem("Just an <a1>anchor</a> element ..."),0) = 1
	End With
	With .Items
		.CellCaptionFormat(.AddItem("Just another <a2>anchor</a> element ..."),0) = 1
	End With
	.Items.AddItem "next item"
End With
173
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

With ComboBox1
	.FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	.Columns.Add "Column"
	With .Items
		.CellCaptionFormat(.AddItem("Just an <a1>anchor</a> element ..."),0) = 1
	End With
	With .Items
		.CellCaptionFormat(.AddItem("Just another <a2>anchor</a> element ..."),0) = 1
	End With
End With
53
Can I change the style or type for the hierarchy lines

With ComboBox1
	.LinesAtRoot = 1
	.HasLines = 2
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child"
	End With
End With
312
Can I change the style of the line being displayed by a divider item

With ComboBox1
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.ScrollBySingleLine = False
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		.CellSingleLine(h,1) = False
		h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
		.ItemDivider(h) = 0
		.ItemDividerLine(h) = 4
		.CellHAlignment(h,0) = 1
		.ItemHeight(h) = 24
	End With
End With
402
Can I change the order of the parts in the cell, as checkbox after the text, and so on

With ComboBox1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add("Column").Def(34) = "caption,check,icon,icons,picture"
	With .Items
		h = .AddItem("Text")
		.CellImage(h,0) = 1
		.CellHasCheckBox(h,0) = True
	End With
End With
170
Can I change the order of the buttons in the scroll bar

With ComboBox1
	.ScrollOrderParts(1) = "t,l,r"
	.ScrollOrderParts(0) = "t,l,r"
End With
39
Can I change the OR string in the filter bar

With ComboBox1
	With .Columns.Add("Column 1")
		.DisplayFilterButton = True
		.FilterType = 1
	End With
	With .Columns.Add("Column 2")
		.DisplayFilterButton = True
		.FilterType = 2
	End With
	.FilterCriteria = "%0 or %1"
	.Description(23) = " | "
	.ApplyFilter 
End With
41
Can I change the NOT string in the filter bar

With ComboBox1
	With .Columns.Add("Column 1")
		.DisplayFilterButton = True
		.FilterType = 1
	End With
	With .Columns.Add("Column 2")
		.DisplayFilterButton = True
		.FilterType = 2
	End With
	.FilterCriteria = "not %0 or %1"
	.Description(24) = " ! "
	.Description(10) = " ! IsBlank"
	.ApplyFilter 
End With
20
Can I change the height of the header bar

With ComboBox1
	.HeaderHeight = 32
End With
317
Can I change the foreground color for the tooltip

With ComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>"
End With
318
Can I change the forecolor for the tooltip

With ComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Background(66) = RGB(255,0,0)
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
21
Can I change the font to display the column's header

With ComboBox1
	.HeaderHeight = 34
	.Columns.Add("Column 1").HTMLCaption = "<font Tahoma;14>Column</font> 1"
End With
171
Can I change the font for the tooltip

With ComboBox1
	.ToolTipDelay = 1
	With .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	End With
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
172
Can I change the font for the tooltip

With ComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "<br><font Tahoma;14>this</font> is a tooltip assigned to a column<br>"
End With
321
Can I change the default border of the tooltip, using your EBN files

With ComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(64) = &H1000000
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
320
Can I change the background color for the tooltip

With ComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Background(65) = RGB(255,0,0)
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
362
Can I change the background color for items or cells that contains a specified string

With ComboBox1
	.ConditionalFormats.Add("%0 contains 'hi'").BackColor = RGB(255,0,0)
	.Columns.Add ""
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.InsertItem h,,"Chld 3"
		.ExpandItem(h) = True
	End With
End With
38
Can I change the AND string in the filter bar

With ComboBox1
	With .Columns.Add("Column 1")
		.DisplayFilterButton = True
		.FilterType = 1
	End With
	With .Columns.Add("Column 2")
		.DisplayFilterButton = True
		.FilterType = 2
	End With
	.Description(11) = " & "
	.ApplyFilter 
End With
46
Can I change the "Today" caption being displayed in the drop down calendar, when I filter for dates

With ComboBox1
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.DisplayFilterDate = True
	End With
	.Description(16) = "Azi"
	.ApplyFilter 
End With
43
Can I change the "Date:" caption when the column's drop down filter window is shown

With ComboBox1
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.DisplayFilterDate = True
	End With
	.Description(12) = "Range"
	.ApplyFilter 
End With
536
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

With ComboBox1
	.BeginUpdate 
	.DrawGridLines = -2
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.Columns.Add("Default").Width = 128
	With .Items
		.CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = 1
		.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
	End With
	.EndUpdate 
End With
535
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

With ComboBox1
	.BeginUpdate 
	.DrawGridLines = -2
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns.Add("Default")
		.Width = 128
		.Def(16) = 1
	End With
	With .Items
		.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
		.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
	End With
	.EndUpdate 
End With
105
Can I apply an EBN skin to the control's filter bar so I can change its visual appearance

With ComboBox1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.FilterBarBackColor = &H1000000
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = 1
	End With
	.ApplyFilter 
End With
431
Can I allow sorting only the child items

With ComboBox1
	.BeginUpdate 
	.Columns.Add "Childs"
	With .Items
		h = .AddItem("Root 1")
		.SortableItem(h) = False
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.SortableItem(h) = False
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With
291
Can I add a +/- ( expand / collapse ) buttons to each item, so I can load the child items later

With ComboBox1
	.LinesAtRoot = -1
	.Columns.Add "Default"
	With .Items
		.ItemHasChildren(.AddItem("parent item with no child items")) = True
		.AddItem "next item"
	End With
End With
187
By default, the column gets sorted descending, when I first click its header. How can I change so the column gets sorted ascending when the user first clicks the column's header

With ComboBox1
	.Columns.Add("Sort").DefaultSortOrder = True
End With
75
By default, the column gets sorted as strings, so how do I sort a column by time only

With ComboBox1
	.Columns.Add("desc").SortType = 4
	With .Items
		.AddItem "11:00"
		.AddItem "10:10"
		.AddItem "12:12"
		.SortChildren 0,0,False
	End With
End With
73
By default, the column gets sorted as strings, so how do I sort a column by dates

With ComboBox1
	.Columns.Add("desc").SortType = 2
	With .Items
		.AddItem "1/1/2001"
		.AddItem "1/2/2002"
		.AddItem "1/3/2003"
		.SortChildren 0,0,False
	End With
End With
74
By default, the column gets sorted as strings, so how do I sort a column by date and time

With ComboBox1
	.Columns.Add("desc").SortType = 3
	With .Items
		.AddItem "1/1/2001 11:00"
		.AddItem "1/1/2001 10:10"
		.AddItem "1/3/2003"
		.SortChildren 0,0,False
	End With
End With
606
Bolds only the expanded items

With ComboBox1
	.BeginUpdate 
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.LinesAtRoot = -1
	.ConditionalFormats.Add("%CX0").Bold = True
	.Columns.Add "Description"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem .InsertItem(h,,"Child 2"),,"Sub-Child 2"
		.CellState(.InsertItem(h,,"Child 3"),0) = 1
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.InsertItem h,,"Child 3"
	End With
	.EndUpdate 
End With
593
Are there any properties to set text margins at tooltip, like Margins="5,5" (method 1). Margins is used to get some space between text and the tooltips border
' MouseMove event - Occurs when the user moves the mouse.
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
	With ComboBox1
		.ShowToolTip "new content","",,"+8","+8"
	End With
End Sub

With ComboBox1
	.ToolTipMargin = "16,8"
End With
539
ADOR, MDB

With ComboBox1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate 
End With
541
ADOR, ACCDB

With ComboBox1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",3,3
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate 
End With
540
ADODB, MDB

With ComboBox1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADODB.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate 
End With
542
ADODB, ACCDB, x64

With ComboBox1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADODB.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",1,1
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate 
End With
531
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do

With ComboBox1
	.BeginUpdate 
	.ColumnAutoResize = True
	.DefaultItemHeight = 20
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" & _
	"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" & _
	"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" & _
	"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" & _
	"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" & _
	"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA=="
	With .Columns.Add("Default")
		.Def(0) = True
		.PartialCheck = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "1 rindex ``"
		.Visible = False
	End With
	With .ConditionalFormats.Add("%C1 mod 2")
		.BackColor = &H1000000
	End With
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
	End With
	.EndUpdate 
End With